home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / editor / hpcontrl.lha / HP_Control / Install / HP_Control.install < prev   
Text File  |  1996-01-31  |  12KB  |  412 lines
  1. ; $VER: HP_Control.install 1.57 (01.01.96)
  2. ; Script to install HP_Control
  3. ;
  4. (complete 0)
  5.  
  6. ; Install script for HP_Control (Workbench 2.0 or higher)
  7.  
  8. (set old_level @user-level)
  9.  
  10. (set SourceRoot "/")
  11. ;=============================================================================
  12. ; German strings
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set default_lang 2)
  17.  
  18. (set #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  19.  
  20. (set #HP_Control-InstallMsg
  21. (cat "\n\HP_Control Installationsskript.\n"
  22.         "Diese Skript installiert HP_Control auf Ihrem Amiga.\n\n"
  23.         "Lesen Sie das Anleitungs-File für weitere Informationen\n"
  24.         " über den Vertrieb von HP_Control.\n\n"
  25.         "HP_Control © 1995-1996 Guido Mersmann\n"
  26.         "All Rechte reserviert."
  27. ))
  28.  
  29. (set #HP_Control-Where
  30. (cat "Wo möchten Sie HP_Control installieren ?\n"
  31.         "(Ein Verzeichnis wird angelegt)"
  32. ))
  33.  
  34. (set #HP_Control-Update
  35. (cat "\nEin HP_Control-Verzeichnis existiert im ausgewählen"
  36.         " Verzeichnis. Wenn Sie fortfahren,"
  37.         " bestätigen Sie, daß Sie die alte HP_Control-Installation"
  38.         " mit der neuesten Version updaten wollen."
  39.         " Verschiedene HP_Control-Dateien (z.B Prefs) werden falls nötig"
  40.         " überschrieben!"
  41. ))
  42.  
  43. (set #HP_Control-Main "Welche Version von HP_Control möchten Sie installieren?")
  44. (set #HP_Control-Main-help
  45. (cat "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  46.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  47.      " benutzt, wenn sich HP_Control im Hintergrund befindet. Dazu MUß"
  48.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe"
  49.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  50.      " weiteren Speicher sparen."
  51. ))
  52.  
  53. (set #HP_Control-copying-Main "\nKopiere HP_Control nach HP_Control/...")
  54. (set #HP_Control-copying-Catalogs "\nKopiere Kataloge nach ...HP_Control/Locale/...")
  55. (set #HP_Control-copying-Printers "\nKopiere Kataloge nach ...HP_Control/Printers/...")
  56.  
  57. (set #HP_Control-Language "\nWelche Sprachen sollen installiert werden ?")
  58. (set #HP_Control-Language-help
  59. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen"
  60.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  61.          " nur die Sprachen anwählen, die sie benötigen"
  62.          " Haken Sie also einfach die Sprachen ab, die Sie"
  63.          " Ihrem System zugänglich machen wollen."
  64. ))
  65. (set #HP_Control-Docs "\nWelche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  66.  
  67.  
  68. (set #HP_Control-Printer "\nWelcher Druckertyp soll installiert werden ?")
  69. (set #HP_Control-Printer-Help
  70. (cat  "\nHP_Control unterstützt viele Drucker. Sie wählen ihren"
  71.       " Druckertyp aus und HP_Control paßt sich automatisch an."
  72.       " Sie können natürlich später mit dem Printer - Tooltype"
  73.       " diese Einstellung ändern."
  74. ))
  75.  
  76. (set #HP_Control-WBStartup
  77. (cat "\nWollen Sie das HP_Control bei jedem System start"
  78.      " automatisch gestartet wird ?"
  79. ))
  80.  
  81. (set #HP_Control-Exit
  82. (cat "\nHP_Control installaliert !!\n\n"
  83.      "Bitte reseten Sie ihren Rechner bevor Sie HP_Control"
  84.      " das erste Mal benutzen. Dadurch werden Probleme mit den"
  85.      " Sprachenkatalogen des Systems vermieden !!"
  86. ))
  87.  
  88.  
  89. ))
  90.  
  91. ;=============================================================================
  92. ; English strings
  93.  
  94. (if (<> @language "deutsch")
  95. (
  96. (set default_lang 4)
  97.  
  98. (set #bad-kick "You must have at least Workbench 2.0+")
  99.  
  100. (set #HP_Control-InstallMsg
  101. (cat "\n\HP_Control installation script.\n"
  102.         "This script installs HP_Control on your Amiga.\n\n"
  103.         "Read the DOK-file for more information\n"
  104.         " on the distribution of HP_Control.\n\n"
  105.         "HP_Control © 1995-1996 Guido Mersmann\n"
  106.         "All rights reserved."
  107. ))
  108.  
  109. (set #HP_Control-Where
  110. (cat "Where would you like to install HP_Control ?\n"
  111.         "(A drawer will be created)"
  112. ))
  113.  
  114. (set #HP_Control-Update
  115. (cat "\nA HP_Control drawer does already exist in the selected "
  116.         " directory. By selecting \"Proceed\", you"
  117.         " indicate that you want to update the HP_Control"
  118.         " installation with the most recent version.\n"
  119.         "Several HP_Control specific files will be overwritten!"
  120. ))
  121.  
  122. (set #HP_Control-Main "Which HP_Control version should be installed ?")
  123. (set #HP_Control-Main-help
  124. (cat "The OS2.0+ version should only be used on Systems with OS2."
  125.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  126.      " Special OS3.0+ functions are used to save more memory."
  127. ))
  128. (set #HP_Control-copying-Main          "Copying HP_Control to ...HP_Control/...")
  129. (set #HP_Control_copying-Catalogs      "Copying catalogs to ...HP_Control/Locale/...")
  130. (set #HP_Control_copying-Printers      "Copying catalogs to ...HP_Control/Printers/...")
  131.  
  132. (set #HP_Control-Language "\nWhich languages should be installed ?")
  133. (set #HP_Control-Language-help
  134. (cat "\nThe Amiga can be operated in many different"
  135.           " languages."
  136.           "To reduce the amount of space consumed by the"
  137.           " language files, you can select to have only the"
  138.           " files of specific languages copied.\n\n"
  139.           "Simply check the boxes of the languages you wish"
  140.           " to have available on your system.\n\n"
  141. ))
  142.  
  143. (set #HP_Control-Docs "\nWhich text files should be installed in \"HP_Control:Docs\" ?")
  144.  
  145. (set #HP_Control-Printer "\nWhich Printertype should be installed ?")
  146. (set #HP_Control-Printer-Help
  147. (cat  "\nHP_Control supports many Printers. Select your Printer here."
  148.       " Later you can change this by modifing the printer tooltype"
  149. ))
  150.  
  151. (set #HP_Control-WBStartup
  152. (cat "\nStart HP_Control by using WBStartup-Drawer ?"
  153. ))
  154.  
  155.  
  156. (set #HP_Control-Exit
  157. (cat "\nHP_Control installed !!\n\n"
  158.      "Please reset your computer before starting HP_Control"
  159. ))
  160.  
  161.  
  162. ))
  163. ;=============================================================================
  164. (set #version (/ (getversion) 65536))
  165.  
  166. (if (< #version 37)
  167.     (
  168.     (abort #bad-kick)
  169.     )
  170. )
  171.  
  172. (if (= #version 37) (set Binary 0))
  173. (if (= #version 38) (set Binary 1))
  174. (if (> #version 38) (set Binary 2))
  175.  
  176.  
  177. (set @default-dest "SYS:Tools/")
  178.  
  179.  
  180. (message #HP_Control-installmsg)
  181.  
  182. (welcome)
  183.  
  184.  
  185.  
  186. (set HP_Controldestdir
  187.         (tackon
  188.                 (askdir
  189.                         (prompt #HP_Control-Where)
  190.                         (help @askdir-help)
  191.                         (default @default-dest)
  192.                 )
  193.                 "HP_Control"
  194.         )
  195. )
  196.  
  197. (if (= (exists HP_Controldestdir) 2)
  198.         (message #HP_Control-Update)
  199. )
  200. (
  201.         (makedir HP_Controldestdir
  202.                 (help @makedir-help)
  203.                 (infos)
  204.         )
  205. )
  206. (set @default-dest HP_Controldestdir)
  207.  
  208. ;***** Create dirs
  209. (complete 20)
  210.  
  211. (makedir (tackon HP_Controldestdir "Catalogs"))
  212. (makedir (tackon HP_Controldestdir "Docs"))
  213. (makedir (tackon HP_Controldestdir "Prefs"))
  214. (makedir (tackon HP_Controldestdir "Printer"))
  215. (makedir (tackon HP_Controldestdir "Docs/Deutsch"))
  216.  
  217. ;***** Delete old Data and Prefs
  218. (delete (tackon HP_Controldestdir "HP_Control"))
  219. (delete (tackon HP_Controldestdir "HPControl"))
  220. (delete (tackon HP_Controldestdir "Prefs/#?"))
  221. (delete (tackon HP_Controldestdir "Printers/#?"))
  222. ;***** Icons
  223. (complete 30)
  224.  
  225. (copyfiles
  226.         (source (tackon SourceRoot "Docs.info"))
  227.         (dest HP_Controldestdir)
  228. )
  229. (copyfiles
  230.         (source (tackon SourceRoot "HP_Control.info"))
  231.         (dest HP_Controldestdir)
  232. )
  233. (copyfiles
  234.         (source (tackon SourceRoot "HPControl"))
  235.         (dest HP_Controldestdir)
  236. )
  237.  
  238. ;***** HP_Control_Main
  239. (complete 40)
  240.  
  241. (set Binary (askchoice
  242.     (prompt #HP_Control-Main)
  243.     (help #HP_Control-Main-help)
  244.     (choices
  245.     "OS2.0+"
  246.                            "OS2.1+"
  247.                            "OS3.0+"
  248.                         )
  249.     (default Binary)
  250.             )
  251. )
  252.  
  253. (set Binary (Select Binary "Dummy" "OS21" "OS30"))
  254.  
  255. (if (<> Binary "Dummy")
  256.  
  257. (copyfiles
  258.         (prompt "\n" #HP_Control-copying-Main)
  259.         (source (tackon (tackon SourceRoot "Bin") Binary) (infos))
  260.         (dest HP_Controldestdir)
  261.         (newname "HPControl")
  262.         (help @copyfiles-help)
  263.         (optional <force>)
  264. )
  265. (Rename (tackon HP_Controldestdir Binary) (tackon HP_Controldestdir "HPControl"))
  266. )
  267. ;***** Catalogs
  268. (complete 50)
  269. (set lang (askoptions
  270.                 (prompt #HP_Control-Language)
  271.                 (help #HP_Control-Language-help)
  272.                 (choices
  273.                         "English"
  274.                         "Deutsch")
  275.                 (default -1)
  276.         )
  277. )
  278. ;***** Copy Catalogs
  279. (set n 0)
  280. (while (< n 2)
  281.         (set language (select n "english" "deutsch"))
  282.         (
  283.                 (if (IN lang n)
  284.                 (
  285.                         (makedir (cat (tackon HP_Controldestdir "Catalogs/") language))
  286.                         (copyfiles
  287.                                 (source (cat (tackon SourceRoot "Catalogs/") language))
  288.                                 (dest (cat (tackon HP_Controldestdir "Catalogs/") language))
  289.                                 (help @copyfiles-help)
  290.                                 (all)
  291.                         )
  292.                 )
  293.                 )
  294.         )
  295. (set n (+ n 1))
  296. )
  297.  
  298. ;***** DOCS
  299. (complete 60)
  300. (set docs (askoptions
  301.                         (prompt #HP_Control-Docs)
  302.                         (help @askoptions-help)
  303.                         (choices
  304.                         "Guide"
  305.                             "ASCII"
  306.  
  307.                                 )
  308.                         (default -1)
  309.                   )
  310. )
  311.  
  312. (set n 0)
  313. (while (< n 2)
  314.         (set documents (select n "HP_Control.Guide" "HP_Control.Dok"))
  315.         (
  316.                 (if (IN docs n)
  317.                 (
  318.                         (copyfiles
  319.                                 (source (cat (tackon SourceRoot "Docs/Deutsch/") documents))
  320.                                 (dest (tackon HP_Controldestdir "Docs/Deutsch/"))
  321.                                 (help @copyfiles-help)
  322. ;                               (infos)
  323.                         )
  324.                 )
  325.                 )
  326.         )
  327. (set n (+ n 1))
  328. )
  329. ;***** Printers
  330. (complete 70)
  331.  
  332. (copyfiles
  333.         (prompt "\n" #HP_Control-copying-Printers)
  334.         (source (tackon SourceRoot "Printer/"))
  335.         (dest (tackon HP_Controldestdir "Printer/"))
  336.         (help @copyfiles-help)
  337.         (optional <force>)
  338.         (all)
  339. ;        (infos)
  340. )
  341.  
  342. ;***** Select Printer
  343. (complete 80)
  344. (set Printer (askchoice
  345.     (prompt #HP_Control-Printer)
  346.     (help @askchoice-help)
  347.     (default 2)
  348.     (choices
  349.     "Hewlett Packard IIISi"
  350.     "Hewlett Packard 4"
  351.     "Hewlett Packard 4L"
  352.     "Hewlett Packard 4M"
  353.     "Hewlett Packard 4ML"
  354.     "Hewlett Packard 4Si"
  355.     "Hewlett Packard 4SiMx"
  356.                            "Hewlett Packard 5L"
  357.                            "Hewlett Packard 5MP"
  358.                            "Hewlett Packard 5P"
  359.     "Other Printer"
  360.                         )
  361.             )
  362. )
  363.  
  364. (set Printer    (Select Printer
  365.     "HPIIISI"
  366.     "HP4"
  367.                         "HP4L"
  368.     "HP4M"
  369.     "HP4ML"
  370.     "HP4Si"
  371.     "HP4SiMx"
  372.                            "HP5L"
  373.                            "HP5MP"
  374.                            "HP5P"
  375.     "BEST"
  376.     )
  377. )
  378. ;*+** WB_Startup ?
  379. (complete 90)
  380. (Set WBStartup (askbool
  381.     (prompt #HP_Control-WBStartup)
  382.     (help #HP_Control-Printer-help)
  383.     (Default 1)
  384.                )
  385. )
  386. ;**** ToolTypes
  387. (complete 95)
  388. (tooltype
  389.    (dest (tackon HP_Controldestdir "HP_Control"))
  390.    (noposition)
  391.    (SetDefaultTool (tackon HP_ControldestDir "HPControl"))
  392.    (SetToolType "PRINTER" Printer)
  393. )
  394. ;**** WBStartup
  395. (complete 97)
  396.  
  397.  (IF (= WBStartup 1)
  398.   (copyfiles (source (tackon HP_ControldestDir "HP_Control.info"))
  399.              (dest "SYS:WBStartup")
  400.   )
  401.  )
  402. ;***** KEYFILE
  403. (complete 97)
  404.  
  405. ;***** Startup-Sequence
  406. (complete 99)
  407.  
  408. ;***** Finished
  409. (complete 100)
  410.  
  411. (exit #HP_Control-exit)
  412.